home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / LAGD.ZIP / lagd.txt
INI File  |  1993-02-17  |  599b  |  31 lines
  1. [options - perform]
  2. /timer109 0 180 ctcp $me ping
  3.  
  4. [remote - events]
  5. 1:ON CTCPREPLY:*PING*:{
  6.   if ($ctime < $parm2) { %pingtime = 0 }
  7.   else { %pingtime = $ctime - $parm2 }
  8.   goto set
  9.   :set
  10.   if (%pingtime > 60) {
  11.     dec %pingtime 60
  12.     inc %pingmin 1
  13.     goto pre
  14.   }
  15.   else {
  16.     goto pre
  17.   }
  18.   :pre
  19.   if (%pingmin == $null) {
  20.     set %pingmsg %pingtime Secs.
  21.     goto msg  
  22.   }
  23.   else {
  24.     set %pingmsg %pingmin Mins. %pingtime Secs.
  25.     goto msg
  26.   }
  27.   :msg
  28.   if ($nick == $me) {
  29.     /notice $me 9,1You are lagging by:0,1  $+ %pingtime $+  9,1secs.
  30.   }
  31. }